program xcompositeqt;

{$mode objfpc}{$H+}

uses

  CMem,Strings,
  SysUtils,Classes,Types,Math, qt4;




type


  TMainForm = class;
  TMainForm = class(TObject)
  private
  public
    Handle : QWidgetH;
    quitButton : QPushButtonH;

    constructor Create;


  end;



  TApplication = class(TObject)
  private
  public  
    MainForm : TMainForm;
    constructor Create;
  end;  
  




//*******************************************************
// TMainForm
//*******************************************************
  
  
//===============================================
constructor TMainForm.Create;
var
  w      : Widestring;
  Pixmap: QPixmapH;
  i, j   : integer;
  layout : QGridLayoutH;
  QTimer : QTimerH;
  {

  TimerHook : QTimer_hookH;
  Paintdevice : QPaintDeviceH;
  Image : QImageH;
  Picture : QPictureH;
  Bitmap : QBitmapH;
  Mostrar : QLabelH;}
begin

  Pixmap := QPixmap_grabwindow(Qwidget_winId(),0,0,-1,-1);

end;




//*******************************************************
// TApplication    
//*******************************************************


//===============================================
constructor TApplication.Create;

begin
inherited;
QApplication_Create(@argc,argv);
MainForm:=TMainForm.Create;
QApplication_Exec();


end;





//*******************************************************
// Main
//*******************************************************
begin

writeln('start of program');
TApplication.Create;
writeln('end of program');

end.
